home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8710.d64 / punkt setzen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  543b  |  19 lines
  1. 50395 REM **********************
  2. 50396 REM * MODUL PUNKT SETZEN *
  3. 50397 REM **********************
  4. 50398 REM X= X-KOORDINATE DES PUNKTES
  5. 50399 REM Y= Y-KOORDINATE DES PUNKTES
  6. 50400 GR=320*INT(Y/8)+(Y AND 7)+(8*INT(X/8))+8192:REM ADRESSE
  7. 50410 MS=2^(7-(X AND 7)):REM BITMASKE
  8. 50420 POKE GR,PEEK(GR)OR MS
  9. 50430 RETURN
  10. 50495 REM ************************
  11. 50496 REM * MODUL PUNKT LOESCHEN *
  12. 50497 REM ************************
  13. 50498 REM X= X-KOORDINATE DES PUNKTES
  14. 50499 REM Y= Y-KOORDINATE DES PUNKTES
  15. 50500 GR=320*INT(Y/8)+(Y AND 7)+(8*INT(X/8))+8192:REM ADRESSE
  16. 50510 MS=2^(7-(X AND 7)):REM BITMASKE
  17. 50520 POKE GR,PEEK(GR)AND(255-MS)
  18. 50530 RETURN
  19.